
# Teacher Absenteeism -----------------------------------------------------

# Pescriptive Norm

labcb$repeat_absense_q10_7
lab$repeat_absence <- NA
lab$repeat_absence[lab$repeat_absense_q10_7 == 2] <- 0
lab$repeat_absence[lab$repeat_absense_q10_7 == 1] <- 1

# Descriptive Norm

labcb$village_action_q10_8
lab$village_action <- NA
lab$village_action[lab$village_action_q10_8 == 1] <- 0 
lab$village_action[lab$village_action_q10_8 == 2] <- 1 

# Efficacy
labcb$change_abs_q10_9
lab$abs_efficacy <- NA
lab$abs_efficacy[lab$change_abs_q10_9 == 1] <- 0
lab$abs_efficacy[lab$change_abs_q10_9 == 2] <- 1














